unit Unit7;

interface

uses
  SysUtils, Types, UITypes, Classes, Variants, FMX_Types, FMX_Controls, FMX_Forms,
  FMX_Dialogs, acroMultiDD,acroMultiLib,windows,
  acroMultiFramework.fmi,acroDelphiClassMethod.fmi,
  acroMultiScreen, FMX_Layouts, FMX_ListBox, FMX_Edit, FMX_ExtCtrls, FMX_Effects;

type
  TForm7 = class(TForm)
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    acroMultiFileDD1: TacroMultiFileDD;
    Button1: TButton;
    ListBox1: TListBox;
    SpeedButton1: TSpeedButton;
    CornerButton1: TCornerButton;
    ComboEdit1: TComboEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.lfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
  ScreenStorage.ReplaceScreen;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  acroMultiLib.Hook(acroMultiFileDD1.DDName,InttoStr(SysUtils.SysLocale.DefaultLCID));
end;

end.
